*Replication syntax for: 
*Mader & Schoen, 2014. Chancellor Merkel, the European debt crisis and the AfD: An analysis of voting behaviour in the 2013 Federal Election.

*This syntax reproduces all results presented in the article and the online appendix.
*	   Exceptions:
*	   For Table 1, run Mader_Schoen_2014_replication_stata2mplus.do in Stata.
*	   For Table A2.2, run btw13_cfa.inp in Mplus.
*	   For Table A2.3, run btw13_cfa.inp in Mplus.

*Before running this syntax, run btw13_cfa.inp in Mplus to create data set with saved factor scores of policy-related predispositions.

*open data set
clear
global mplus_path `"C:\Program Files\Mplus"'
runmplus_load_savedata , out(C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\btw13_cfa.out) clear
set more off, permanently
numlabel, add 
*note. The runmplus_load_savedata ado reads in data saved by Mplus using the SAVEDATA command.
*	   The name of the actual Mplus data file is DATA_btw13_fs.dat.


**definition of missing values
	mvdecode t925 el2 el3 el4 eth1 eth4 mt1 mt2 ec1 ec2 wei_mzz t156a t156b t156c t156f inv1 inv2 inv3 votechoi v_union v_fdp v_spd v_gruen v_linke v_pirat v_afd el1 eth3 v1 v2 euro merkel stein tritt gysi brue cpmerk cpstein sat gov_sat merk_sat finance indebted t46a_r union_d spd_d fdp_d gruen_d linke_d pira_d afd_d no_pi union_i spd_i fdp_i gruen_i linke_i pira_i afd_i lire alter eduhi edulo female ost el el_se eth eth_se mt mt_se ec ec_se ///
	     , mv(9999 = .)

		 
**recoding of alienation
	recode t156b (1 = 0) (2 = .25) (3 = .5) (4 = .75) (5 = 1), gen(eff)

**recoding of intended vote choice: "other party", missing value = 0
	recode votechoi (. = 0), gen(votechoi2)

**recoding of intended vote choice: "Pirates" = .
	recode votechoi (5 = .), gen(votechoi3)
	
**recoding of factor scores
	sum el eth mt ec

	*fs from t308d t308i t114 (economic liberalism)
	gen el_r = (el + .325) / (.325 + .571)
	egen el_cat = cut(el_r), at(0, .1, .2, .3, .4, .5, .6, .7, .8, .9, 1)
	gen el_cat10 = el_cat
	recode el_cat10 (0 = 1) (.1 = 2) (.2 = 3) (.3 = 4) (.4 = 5) (.5 = 6) (.6 = 7) (.7 = 8) (.8 = 9) (.9 = 10)
	
	gen el_cat5 = .
	replace el_cat5 = 0 if el_r >= 0 & el_r < .2
	replace el_cat5 = .25 if el_r >= .2 & el_r < .4
	replace el_cat5 = .5 if el_r >= .4 & el_r < .6
	replace el_cat5 = .75 if el_r >= .6 & el_r < .8
	replace el_cat5 = 1 if el_r >= .8 & el_r <= 1
	
	*fs from t308a t154 (ethnocentrism)
	gen eth_r = (eth + .542) / (.542 + .371)
	egen eth_cat = cut(eth_r), at(0, .1, .2, .3, .4, .5, .6, .7, .8, .9, 1)
	gen eth_cat10 = eth_cat
	recode eth_cat10 (0 = 1) (.1 = 2) (.2 = 3) (.3 = 4) (.4 = 5) (.5 = 6) (.6 = 7) (.7 = 8) (.8 = 9) (.9 = 10)
	
	gen eth_cat5 = .
	replace eth_cat5 = 0 if eth_r >= 0 & eth_r < .2
	replace eth_cat5 = .25 if eth_r >= .2 & eth_r < .4
	replace eth_cat5 = .5 if eth_r >= .4 & eth_r < .6
	replace eth_cat5 = .75 if eth_r >= .6 & eth_r < .8
	replace eth_cat5 = 1 if eth_r >= .8 & eth_r <= 1
	
	* fs from t308h t308k (moral traditionalism)
	gen mt_r = (mt + .212) / (.212 + .336)
	egen mt_cat = cut(mt_r), at(0, .1, .2, .3, .4, .5, .6, .7, .8, .9, 1)
	gen mt_cat10 = mt_cat
	recode mt_cat10 (0 = 1) (.1 = 2) (.2 = 3) (.3 = 4) (.4 = 5) (.5 = 6) (.6 = 7) (.7 = 8) (.8 = 9) (.9 = 10)
	
	gen mt_cat5 = .
	replace mt_cat5 = 0 if mt_r >= 0 & mt_r < .2
	replace mt_cat5 = .25 if mt_r >= .2 & mt_r < .4
	replace mt_cat5 = .5 if mt_r >= .4 & mt_r < .6
	replace mt_cat5 = .75 if mt_r >= .6 & mt_r < .8
	replace mt_cat5 = 1 if mt_r >= .8 & mt_r <= 1
		
	* fs from t308g t318 (environmental concern)
	gen ec_r = (ec + .412) / (.412 + .32)
	egen ec_cat = cut(ec_r), at(0, .1, .2, .3, .4, .5, .6, .7, .8, .9, 1)
	gen ec_cat10 = ec_cat
	recode ec_cat10 (0 = 1) (.1 = 2) (.2 = 3) (.3 = 4) (.4 = 5) (.5 = 6) (.6 = 7) (.7 = 8) (.8 = 9) (.9 = 10)

	gen ec_cat5 = .
	replace ec_cat5 = 0 if ec_r >= 0 & ec_r < .2
	replace ec_cat5 = .25 if ec_r >= .2 & ec_r < .4
	replace ec_cat5 = .5 if ec_r >= .4 & ec_r < .6
	replace ec_cat5 = .75 if ec_r >= .6 & ec_r < .8
	replace ec_cat5 = 1 if ec_r >= .8 & ec_r <= 1
				
	sum el_r eth_r mt_r ec_r
	pwcorr el_r eth_r mt_r ec_r
	
	
*Table A2.4: Decriptives of Factor Scores
	svyset _n [pweight=wei_mzz], vce(linearized) singleunit(missing)

	svy: tab  el_cat5	
	svy: tab  eth_cat5	
	svy: tab  mt_cat5
	svy: tab  ec_cat5	


	svy: mean el_r
	svy: mean el_r if union_d == 1
	svy: mean el_r if spd_d == 1	
	svy: mean el_r if gruen_d == 1
	svy: mean el_r if no_pi == 1	
	
	svy: mean eth_r
	svy: mean eth_r if union_d == 1
	svy: mean eth_r if spd_d == 1	
	svy: mean eth_r if gruen_d == 1
	svy: mean eth_r if no_pi == 1	
	
	svy: mean mt_r
	svy: mean mt_r if union_d == 1
	svy: mean mt_r if spd_d == 1	
	svy: mean mt_r if gruen_d == 1
	svy: mean mt_r if no_pi == 1	
	
	svy: mean ec_r
	svy: mean ec_r if union_d == 1
	svy: mean ec_r if spd_d == 1	
	svy: mean ec_r if gruen_d == 1
	svy: mean ec_r if no_pi == 1	
	
		
	tab1 el_cat eth_cat mt_cat ec_cat, mis


**labeling of variables
	label define votechoice1_lb 1 "CDU/CSU" 2 "FDP" 3 "GRUENE" 4  "DIE LINKE" 5 "PIRATEN" 6 "AfD" 7 "SPD"  
	label val votechoi votechoice1_lb
	tab1 votechoi, mis

	label define votechoice2_lb 0 "other party or missing" 1 "CDU/CSU" 2 "FDP" 3 "GRUENE" 4  "DIE LINKE" 5 "PIRATEN" 6 "AfD" 7 "SPD"  
	label val votechoi2 votechoice2_lb
	tab1 votechoi2, mis

	label define votechoice3_lb 1 "CDU/CSU" 2 "FDP" 3 "GRUENE" 4 "DIE LINKE" 6 "AfD" 7 "SPD"  
	label val votechoi3 votechoice3_lb
	tab1 votechoi3, mis
	
	label define cand_lb 1 "Merkel" 2 "Steinbr�ck" 3 "neither" 
	label val t925 cand_lb
	tab1 t925, mis

	label variable votechoi "vote choice: second vote"
	label variable votechoi2 "vote choice: second vote mod."
	label variable votechoi3 "vote choice: second vote mod."	
	label variable v_union "Vote CDU/CSU"
	label variable v_fdp "Vote FDP"
	label variable v_spd "Vote SPD"
	label variable v_gruen "Vote Greens"
	label variable v_linke "Vote Left Party"
	label variable v_pirat "Vote Pirates"
	label variable v_afd "Vote AfD"
	label variable el_r "Economic Liberalism"
	label variable eth_r "Ethnocentrism"
	label variable mt_r "Moral Traditionalism"
	label variable ec_r "Environmental Concern"
	label variable lire "Ideology"
	label variable union_d "PI CDU/CSU"
	label variable spd_d "PI SPD"
	label variable gruen_d "PI Greens"
	label variable no_pi "no PI"
	label variable merkel "Rating Merkel"
	label variable stein "Rating Steinbr�ck"
	label variable tritt "Rating Trittin"
	label variable gysi "Rating Gysi"
	label variable euro "Rating Euro Crisis"
	label variable alter "Age"
	label variable eduhi "High Education"
	label variable edulo "Low Education"
	label variable female "Female"
	label variable ost "East German"
	label variable t925 "C Pref"
	label variable cpmerk "C Pref Merkel"
	label variable cpstein "C Pref Steinbr�ck"
	label variable inv1 "Political Interest"
	label variable eff "External Efficacy"
	label variable sat "General satisfaction with government"
	label variable gov_sat "Satisfaction with government in Euro crisis"
	label variable merk_sat "Satisfaction with Merkel in Euro crisis"
	label variable finance "Financial sector is responsible"
	label variable indebted "Indebted countries are responsible"
	
	
*Table A2.1: exploratory factor analysis***************************************************************************************
	factor el2 el3 el4 eth1 eth4 mt1 mt2 ec1 ec2 [aweight = wei_mzz]
	rotate, promax(3) blanks (.3)


*DV: intended vote choice******************************************************************************************************
*short-term and long-term factors *********************************************************************************************

	*(Table A3.1)
mlogit votechoi3 union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r lire ///
	   cpmerk cpstein euro  [pw=wei_mzz], baseoutcome(1)
	fitstat
	outreg2 using tables1.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
    addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
	replace
	
**********Candidate Effects on CDU/CSU and SPD**********************************************************************************
*Table A3.2
	*probability if Merkel = 1, PI_Union=1
	prvalue, x(union_d=1 spd_d=0 gruen_d=0 no_pi=0 cpmerk=1 cpstein=0) ///
				rest(mean) 
	*probability if Steinbr�ck = 1, PI_Union=1
	prvalue, x(union_d=1 spd_d=0 gruen_d=0 no_pi=0 cpmerk=0 cpstein=1) ///
				rest(mean) 
	*probability if neither = 1, PI_Union=1
	prvalue, x(union_d=1 spd_d=0 gruen_d=0 no_pi=0 cpmerk=0 cpstein=0) ///
				rest(mean) 
				 
	*probability if Merkel = 1, PI_SPD=1
	prvalue, x(union_d=0 spd_d=1 gruen_d=0 no_pi=0 cpmerk=1 cpstein=0) ///
				rest(mean) 
	*probability if Steinbr�ck = 1, PI_SPD=1
	prvalue, x(union_d=0 spd_d=1 gruen_d=0 no_pi=0 cpmerk=0 cpstein=1) ///
				rest(mean) 
	*probability if neither = 1, PI_SPD=1
	prvalue, x(union_d=0 spd_d=1 gruen_d=0 no_pi=0 cpmerk=0 cpstein=0) ///
				rest(mean) 
				 
	*probability if Merkel = 1, No-PI=1
	prvalue, x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=1 cpstein=0) ///
				rest(mean) 
	*probability if Steinbr�ck = 1, No-PI=1
	prvalue, x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=1) ///
				rest(mean)
	*probability if neither = 1, No-PI=1
	prvalue, x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=0) ///
				rest(mean)
	

**********Euro Crisis Effect on AfD, CDU/CSU, SPD, Greens *************************************************************************
	
*Figure 1
	*AfD
	*Postestimation: Euro-Crisis, no PI, Preference for Neither
	prgen euro, gen( pr1 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=0) rest(mean)
	*Postestimation: Euro-Crisis, no PI,, Merkel preference	
	prgen euro, gen( pr2 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=1) rest(mean)
	*Postestimation: Euro-Crisis, CDU/CSU PI, Merkel Preference	
	prgen euro, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=1 cpstein=0) rest(mean)
	
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p6 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr2p6 pr2x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr3p6 pr3x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "No PI, Preference for Steinbr�ck") label(2 "No PI, Preference for Neither") label(3 "No PI, Preference for Merkel")) ///
	graphregion(color(white)) title("AfD") xtitle("Opposition to Financial Aid") ytitle("Probability to Vote") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_AfD1.wmf", replace

	drop pr1x pr1p2 pr1p3 pr1p4 pr1p6 pr1p7 pr1p1 pr1s2 pr1s3 pr1s4 pr1s6 pr1s7 pr1s1 ///
	pr2x pr2p2 pr2p3 pr2p4 pr2p6 pr2p7 pr2p1 pr2s2 pr2s3 pr2s4 pr2s6 pr2s7 pr2s1 ///
	pr3x pr3p2 pr3p3 pr3p4 pr3p6 pr3p7 pr3p1 pr3s2 pr3s3 pr3s4 pr3s6 pr3s7 pr3s1
	

	
	*CDU/CSU
	*Postestimation: Euro-Crisis, CDU/CSU PI, Merkel preference	
	prgen euro, gen( pr1 ) x(union_d=1 spd_d=0 gruen_d=0 no_pi=0 cpmerk=1 cpstein=0) rest(mean)
	*Postestimation: Euro-Crisis, No PI, Merkel preference		
	prgen euro, gen( pr2 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=1 cpstein=0) rest(mean)
	*Postestimation: Euro-Crisis, no PI, no Cand. Preference
	prgen euro, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=0) rest(mean)
	
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p1 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr2p1 pr2x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr3p1 pr3x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "CDU/CSU PI, Preference for Merkel") label(2 "No PI, Preference for Merkel") label(3 "No PI, Preference for Neither")) ///
	graphregion(color(white)) title("CDU/CSU") xtitle("Opposition to Financial Aid") ytitle("Probability to Vote") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_union.wmf", replace
	
	drop pr1x pr1p2 pr1p3 pr1p4 pr1p6 pr1p7 pr1p1 pr1s2 pr1s3 pr1s4 pr1s6 pr1s7 pr1s1 ///
	pr2x pr2p2 pr2p3 pr2p4 pr2p6 pr2p7 pr2p1 pr2s2 pr2s3 pr2s4 pr2s6 pr2s7 pr2s1 ///
	pr3x pr3p2 pr3p3 pr3p4 pr3p6 pr3p7 pr3p1 pr3s2 pr3s3 pr3s4 pr3s6 pr3s7 pr3s1

	
	*SPD
	*Postestimation: Euro-Crisis, SPD PI, Steinbr�ck preference
	prgen euro, gen( pr1 ) x(union_d=0 spd_d=1 gruen_d=0 no_pi=0 cpmerk=0 cpstein=1) rest(mean)
	*Postestimation: Euro-Crisis, No PI, Steinbr�ck preference	
	prgen euro, gen( pr2 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=1) rest(mean)
	*Postestimation: Euro-Crisis, no PI, no Cand. Preference	
	prgen euro, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=0) rest(mean)
	
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p7 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr2p7 pr2x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr3p7 pr3x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "SPD PI, Preference for Steinbr�ck") label(2 "No PI, Preference for Steinbr�ck") label(3 "No PI, Preference for Neither")) ///
	graphregion(color(white)) title("SPD") xtitle("Opposition to Financial Aid") ytitle("Probability to Vote") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_SPD.wmf", replace

	drop pr1x pr1p2 pr1p3 pr1p4 pr1p6 pr1p7 pr1p1 pr1s2 pr1s3 pr1s4 pr1s6 pr1s7 pr1s1 ///
	pr2x pr2p2 pr2p3 pr2p4 pr2p6 pr2p7 pr2p1 pr2s2 pr2s3 pr2s4 pr2s6 pr2s7 pr2s1 ///
	pr3x pr3p2 pr3p3 pr3p4 pr3p6 pr3p7 pr3p1 pr3s2 pr3s3 pr3s4 pr3s6 pr3s7 pr3s1


	*Greens
	*Postestimation: Euro-Crisis, Greens PI, Steinbr�ck Preference
	prgen euro, gen( pr1 ) x(union_d=0 spd_d=0 gruen_d=1 no_pi=0 cpmerk=0 cpstein=0) rest(mean)
	*Postestimation: Euro-Crisis, Greens PI, Preference for Neither
	prgen euro, gen( pr2 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=0 cpstein=0) rest(mean)
	*Postestimation: Euro-Crisis, no PI, Merkel preference
	prgen euro, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1 cpmerk=1 cpstein=0) rest(mean)
	
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p3 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr2p3 pr2x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr3p3 pr3x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "Greens PI, Preference for Neither") label(2 "No PI, Preference for Neither") label(3 "No PI, Preference for Merkel")) ///
	graphregion(color(white)) title("Greens") xtitle("Opposition to Financial Aid") ytitle("Probability to Vote") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_Greens.wmf", replace

	drop pr1x pr1p2 pr1p3 pr1p4 pr1p6 pr1p7 pr1p1 pr1s2 pr1s3 pr1s4 pr1s6 pr1s7 pr1s1 ///
	pr2x pr2p2 pr2p3 pr2p4 pr2p6 pr2p7 pr2p1 pr2s2 pr2s3 pr2s4 pr2s6 pr2s7 pr2s1 ///
	pr3x pr3p2 pr3p3 pr3p4 pr3p6 pr3p7 pr3p1 pr3s2 pr3s3 pr3s4 pr3s6 pr3s7 pr3s1 


*Figure A3.1 (AfD with various PI)
	*Postestimation: Euro-Crisis, CDU/CSU PI, Preference for Merkel
	prgen euro, gen( pr1 ) x(union_d=1 spd_d=0 gruen_d=0 no_pi=0 cpmerk=1 cpstein=0) rest(mean)
	*Postestimation: Euro-Crisis, SPD PI,, Preference for Steinbr�ck	
	prgen euro, gen( pr2 ) x(union_d=0 spd_d=1 gruen_d=0 no_pi=0 cpmerk=0 cpstein=1) rest(mean)
	*Postestimation: Euro-Crisis, Greens PI, Preference for Neither
	prgen euro, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=1 no_pi=0 cpmerk=0 cpstein=0) rest(mean)
	
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p6 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr2p6 pr2x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr3p6 pr3x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "CDU/CSU PI, Preference for Merkel") label(2 "SPD PI, Preference for Steinbr�ck") label(3 "Greens PI, Preference for Neither")) ///
	graphregion(color(white)) title("AfD") xtitle("Opposition to Financial Aid") ytitle("Probability to Vote") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_AfD2.wmf", replace

	drop pr1x pr1p2 pr1p3 pr1p4 pr1p6 pr1p7 pr1p1 pr1s2 pr1s3 pr1s4 pr1s6 pr1s7 pr1s1 ///
	pr2x pr2p2 pr2p3 pr2p4 pr2p6 pr2p7 pr2p1 pr2s2 pr2s3 pr2s4 pr2s6 pr2s7 pr2s1 ///
	pr3x pr3p2 pr3p3 pr3p4 pr3p6 pr3p7 pr3p1 pr3s2 pr3s3 pr3s4 pr3s6 pr3s7 pr3s1
	
*Figure A3.1 (Greens PI with confidence intervals)
	prgen euro, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=1 no_pi=0 cpmerk=0 cpstein=0) rest(mean) ci
	
	graph set window fontface "Times New Roman"
	graph twoway (connected pr3p6ub pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(none)) ///
	(connected pr3p6 pr3x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	(connected pr3p6lb pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(none)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "95% Confidence Interval") label(2 "Greens PI, Preference for Neither") label(3 "95% Confidence Interval")) ///
	graphregion(color(white)) title("AfD") xtitle("Opposition to Financial Aid") ytitle("Probability to Vote") 	
	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_AfD3.wmf", replace
	
	drop pr3x pr3p2 pr3p3 pr3p4 pr3p6 pr3p7 pr3p1 pr3p2lb pr3p3lb pr3p4lb pr3p6lb pr3p7lb pr3p1lb pr3p2ub pr3p3ub pr3p4ub pr3p6ub pr3p7ub pr3p1ub pr3s2 pr3s3 pr3s4 pr3s6 pr3s7 pr3s1
	

*Table A3.1.x
	mlogit votechoi3 union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r ///
		   cpmerk cpstein euro [pw=wei_mzz] if lire != . , baseoutcome(1)
	fitstat
	outreg2 using tables2.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
    addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
	replace
		
	
	
	
*long-term factors only*******************************************************************************************************************************
*Table A3.3
	mlogit votechoi3 union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r lire ///
	if euro != . [pw=wei_mzz], baseoutcome(1)
	fitstat
	outreg2 using tables3.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
    addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
	replace
	
	*Probability of electoral choice if no PI
	prvalue, x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) ///
				rest(mean) 
	*Probability of electoral choice vote if CDU/CSU PI
	prvalue, x(union_d=1 spd_d=0 gruen_d=0 no_pi=0) ///
				rest(mean) 
	*Probability of electoral choice if SPD PI
	prvalue, x(union_d=0 spd_d=1 gruen_d=0 no_pi=0) ///
				rest(mean) 
	*Probability of electoral choice if Green PI
	prvalue, x(union_d=0 spd_d=0 gruen_d=1 no_pi=0) ///
				rest(mean) 
		
*Table A3.3.x
	mlogit votechoi3 union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r  ///
	if euro != . & lire != . [pw=wei_mzz], baseoutcome(1)
	fitstat
	outreg2 using tables4.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
    addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
	replace	
	
	
*DV: Opposition to Financial Aid**********************************************************************************************************************
*Effects of Economic Liberalism and Ethnocentrism on Opposition to Financial Aid**********************************************************************

*Table A4.1 (left column)
	reg euro union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r lire ///
		   [pw=wei_mzz] if  ///
		    votechoi3 != .
	fitstat
	outreg2 using tables5.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.)  ///
            addnote("Notes: Entries are unstandardized regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
			replace
*Figure 2: economic liberalism			
	margins, at(el_r=(0(.2)1) union_d=0 spd_d=0 gruen_d=0 no_pi=0)
	graph set window fontface "Times New Roman"
	marginsplot, plotopts(msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
		noci graphregion(color(white)) title("") xtitle("Economic Liberalism") ytitle("Opposition to Financial Aid") ylabel(0(.2)1)	 
	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_el.wmf", replace

*Figure 2: ethnocentrism
	margins, at(eth_r=(0(.2)1) union_d=1 spd_d=0 gruen_d=0 no_pi=1)
	graph set window fontface "Times New Roman"
	marginsplot, plotopts(msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
		noci graphregion(color(white)) title("") xtitle("Ethnocentrism") ytitle("Opposition to Financial Aid") ylabel(0(.2)1)	 
	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\euro_eth.wmf", replace
	
*Table A4.1 (right column)
	reg euro union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r ///
		   [pw=wei_mzz] if  ///
		    votechoi3 != . & lire != .
	fitstat
	outreg2 using tables6.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.)  ///
            addnote("Notes: Entries are unstandardized regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
			replace	
	
*DV: candidate orientations*************************************************************************************************************************************************

*Table A5.1 (left column)
	mlogit t925 union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r lire ///
		   [pw=wei_mzz] if  ///
		   euro != . & votechoi3 != . , baseoutcome(3)
		  fitstat
	outreg2 using tables7.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
            addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
			replace
			
	*Probability of a Preference for Merkel if CDU/CSU PI
	prvalue, x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) ///
				rest(mean) 	
	*Probability of a Preference for Merkel if CDU/CSU PI
	prvalue, x(union_d=1 spd_d=0 gruen_d=0 no_pi=0) ///
				rest(mean) 
	*Probability of a Preference for Steinbr�ck if SPD PI
	prvalue, x(union_d=0 spd_d=1 gruen_d=0 no_pi=0) ///
				rest(mean) 
	
*Figure 3	
	*Postestimation: Economic Liberalism,CDU/CSU PI
	prgen el_r, gen( pr1 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean)
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p1 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr1p3 pr1x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr1p2 pr1x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "Preference for Merkel") label(2 "Preference for Neither") label(3 "Preference for Steinbr�ck")) ///
	graphregion(color(white)) title("") xtitle("Economic Liberalism") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_el.wmf", replace
	drop pr1x pr1p1 pr1p2 pr1p3 pr1s1 pr1s2 pr1s3 


	prgen el_r, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean) ci
	graph set window fontface "Times New Roman"
	graph twoway (connected pr3p1ub pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p1 pr3x, msymbol(circle_hollow) mcolor(black) msize(*1.5) lcolor(black) lwidth(medthick)) ///
	(connected pr3p1lb pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p2ub pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p2 pr3x, msymbol(diamond_hollow) mcolor(red) msize(*1.5) lcolor(red) lwidth(medthick)) ///
	(connected pr3p2lb pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p3ub pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	(connected pr3p3 pr3x, msymbol(triangle_hollow) mcolor(green) msize(*1.5) lcolor(green) lwidth(medthick)) ///
	(connected pr3p3lb pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2).8)	///
	legend(region(color(white)) rows(3) ///
	label(1 lower 95 CI) label(2 "Preference for Merkel") label(3 upper 95 CI) ///
	label(4 lower 95 CI) label(5 "Preference for Steinbr�ck") label(6 upper 95 CI) ///
	label(7 lower 95 CI) label(8 "Preference for Neither") label(9 upper 95 CI)) ///
	graphregion(color(white)) title("") xtitle("Economic Liberalism") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_el_ci.wmf", replace
	drop pr3x pr3p1 pr3p2 pr3p3 pr3p1lb pr3p2lb pr3p3lb pr3p1ub pr3p2ub pr3p3ub pr3s1 pr3s2 pr3s3
	
	
	
	*Moral Traditionalism
	*Postestimation: Economic Liberalism,CDU/CSU PI
	prgen mt_r, gen( pr1 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean)
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p1 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr1p3 pr1x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr1p2 pr1x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "Preference for Merkel") label(2 "Preference for Neither") label(3 "Preference for Steinbr�ck")) ///
	graphregion(color(white)) title("") xtitle("Moral Traditionalism") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_mt.wmf", replace
	drop pr1x pr1p1 pr1p2 pr1p3 pr1s1 pr1s2 pr1s3 
	
	
	prgen mt_r, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean) ci
	graph set window fontface "Times New Roman"
	graph twoway (connected pr3p1ub pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p1 pr3x, msymbol(circle_hollow) mcolor(black) msize(*1.5) lcolor(black) lwidth(medthick)) ///
	(connected pr3p1lb pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p2ub pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p2 pr3x, msymbol(diamond_hollow) mcolor(red) msize(*1.5) lcolor(red) lwidth(medthick)) ///
	(connected pr3p2lb pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p3ub pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	(connected pr3p3 pr3x, msymbol(triangle_hollow) mcolor(green) msize(*1.5) lcolor(green) lwidth(medthick)) ///
	(connected pr3p3lb pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2).8)	///
	legend(region(color(white)) rows(3) ///
	label(1 lower 95 CI) label(2 "Preference for Merkel") label(3 upper 95 CI) ///
	label(4 lower 95 CI) label(5 "Preference for Steinbr�ck") label(6 upper 95 CI) ///
	label(7 lower 95 CI) label(8 "Preference for Neither") label(9 upper 95 CI)) ///
	graphregion(color(white)) title("") xtitle("Moral Traditionalism") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_mt_ci.wmf", replace
	drop pr3x pr3p1 pr3p2 pr3p3 pr3p1lb pr3p2lb pr3p3lb pr3p1ub pr3p2ub pr3p3ub pr3s1 pr3s2 pr3s3
	
	
	*Ethnocentrism
	prgen eth_r, gen( pr1 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean)
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p1 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr1p3 pr1x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr1p2 pr1x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "Preference for Merkel") label(2 "Preference for Neither") label(3 "Preference for Steinbr�ck")) ///
	graphregion(color(white)) title("") xtitle("Ethnocentrism") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_eth.wmf", replace
	drop pr1x pr1p1 pr1p2 pr1p3 pr1s1 pr1s2 pr1s3 

	
	prgen eth_r, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean) ci
	graph set window fontface "Times New Roman"
	graph twoway (connected pr3p1ub pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p1 pr3x, msymbol(circle_hollow) mcolor(black) msize(*1.5) lcolor(black) lwidth(medthick)) ///
	(connected pr3p1lb pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p2ub pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p2 pr3x, msymbol(diamond_hollow) mcolor(red) msize(*1.5) lcolor(red) lwidth(medthick)) ///
	(connected pr3p2lb pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p3ub pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	(connected pr3p3 pr3x, msymbol(triangle_hollow) mcolor(green) msize(*1.5) lcolor(green) lwidth(medthick)) ///
	(connected pr3p3lb pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2).8)	///
	legend(region(color(white)) rows(3) ///
	label(1 lower 95 CI) label(2 "Preference for Merkel") label(3 upper 95 CI) ///
	label(4 lower 95 CI) label(5 "Preference for Steinbr�ck") label(6 upper 95 CI) ///
	label(7 lower 95 CI) label(8 "Preference for Neither") label(9 upper 95 CI)) ///
	graphregion(color(white)) title("") xtitle("Ethnocentrism") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_eth_ci.wmf", replace
	drop pr3x pr3p1 pr3p2 pr3p3 pr3p1lb pr3p2lb pr3p3lb pr3p1ub pr3p2ub pr3p3ub pr3s1 pr3s2 pr3s3
	
	
	*Environmental Concern
	prgen ec_r, gen( pr1 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean)
	graph set window fontface "Times New Roman"
	twoway (connected  pr1p1 pr1x, msymbol(circle_hollow) mcolor(gs0) msize(*1.5) lcolor(gs0) lwidth(medthick)) ///
	(connected pr1p3 pr1x, msymbol(diamond_hollow) mcolor(gs5) msize(*1.5) lcolor(gs5) lwidth(medthick)) ///
	(connected  pr1p2 pr1x, msymbol(triangle_hollow) mcolor(gs10) msize(*1.5) lcolor(gs10) lwidth(medthick)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2)1)	///
	legend(region(color(white)) rows(3) ///
	label(1 "Preference for Merkel") label(2 "Preference for Neither") label(3 "Preference for Steinbr�ck")) ///
	graphregion(color(white)) title("") xtitle("Environmental Concern") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_ec.wmf", replace
	drop pr1x pr1p1 pr1p2 pr1p3 pr1s1 pr1s2 pr1s3 

	prgen ec_r, gen( pr3 ) x(union_d=0 spd_d=0 gruen_d=0 no_pi=1) rest(mean) ci
	graph set window fontface "Times New Roman"
	graph twoway (connected pr3p1ub pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p1 pr3x, msymbol(circle_hollow) mcolor(black) msize(*1.5) lcolor(black) lwidth(medthick)) ///
	(connected pr3p1lb pr3x, clcolor(black) clpat(dash) clwidth(thin) msymbol(i) mcolor(black)) ///
	(connected pr3p2ub pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p2 pr3x, msymbol(diamond_hollow) mcolor(red) msize(*1.5) lcolor(red) lwidth(medthick)) ///
	(connected pr3p2lb pr3x, clcolor(red) clpat(dash) clwidth(thin) msymbol(i) mcolor(red)) ///
	(connected pr3p3ub pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	(connected pr3p3 pr3x, msymbol(triangle_hollow) mcolor(green) msize(*1.5) lcolor(green) lwidth(medthick)) ///
	(connected pr3p3lb pr3x, clcolor(green) clpat(dash) clwidth(thin) msymbol(i) mcolor(green)) ///
	, 	yscale(range(0 .5))	ylabel(0(.2).8)	///
	legend(region(color(white)) rows(3) ///
	label(1 lower 95 CI) label(2 "Preference for Merkel") label(3 upper 95 CI) ///
	label(4 lower 95 CI) label(5 "Preference for Steinbr�ck") label(6 upper 95 CI) ///
	label(7 lower 95 CI) label(8 "Preference for Neither") label(9 upper 95 CI)) ///
	graphregion(color(white)) title("") xtitle("Environmental Concern") ytitle("Probability of Candidate Preference") 
 	graph export "C:\Users\ba6po19\Documents\Dropbox\Publikationen\Mader_Schoen_2014_BTW13\Darstellungen\cand_ec_ci.wmf", replace
	drop pr3x pr3p1 pr3p2 pr3p3 pr3p1lb pr3p2lb pr3p3lb pr3p1ub pr3p2ub pr3p3ub pr3s1 pr3s2 pr3s3
				
	
*Table A5.1 (right column)
	mlogit t925 union_d spd_d gruen_d no_pi el_r eth_r mt_r ec_r  ///
		   [pw=wei_mzz] if lire != . & ///
		   euro != . & votechoi3 != . , baseoutcome(3)
		  fitstat
	outreg2 using tables9.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
            addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
			replace	
	
	
*Table A5.1x (left column)
	mlogit t925 el_r eth_r mt_r ec_r  lire ///
		   [pw=wei_mzz] if ///
		   euro != . & votechoi3 != . , baseoutcome(3)
		  fitstat
	outreg2 using tables10.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
            addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
			replace	
		
	
	
*Table A5.1x (right column)
	mlogit t925 el_r eth_r mt_r ec_r  ///
		   [pw=wei_mzz] if  lire !=. & ///
		   euro != . & votechoi3 != . , baseoutcome(3)
		  fitstat
	outreg2 using tables10.doc, label bdec(2) sdec(2) rdec(2) alpha(0.001, 0.01, .05) decmark(.) addstat(Pseudo R-squared, `e(r2_p)') ///
            addnote("Notes: Entries are unstandardized logistic regression coefficients, with standard errors in parantheses;  * p < 0.05; ** p < 0.01; *** p < 0.001.") ///
			replace	
		
		
	
	
	
	
	
	
	
	
	
	
	
	
	
	
